home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / copydemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  271 b   |  11 lines
  1. program CopyDemo;
  2. var
  3.   S: String (42);
  4. begin
  5.   S := 'Hello';
  6.   WriteLn (Copy (S, 2, 3));  { yields "ell" }
  7.   WriteLn (Copy (S, 3));     { yields "llo" }
  8.   WriteLn (Copy (S, 4, 7));  { yields "lo" }
  9.   WriteLn (Copy (S, 42))     { yields the empty string }
  10. end.
  11.